demand isspace?
demand isnotspace?
demand xt-skip

supplied-by
: parse-name  ( "name" -- c-addr u )
   source >in @ /string
   ['] isspace? xt-skip over >r
   ['] isnotspace? xt-skip ( end-word restlen r: start-word )
   2dup 1 min + source drop - >in !
   drop r> tuck -
;
